home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / util / wb / sonivisgui.lha / SONIVISGUI / XANIM_GUI1.11 < prev    next >
Text File  |  1995-05-17  |  1KB  |  50 lines
  1. ;Xanim(BETA) GUI file viewer V1.11
  2. ;©1995 Ivan Smith
  3. ;For WorBench 3.X+ ONLY!
  4. ;Requestchoice and Request File must be in you C: dir.
  5.  
  6. IF NOT EXISTS ENV:X11
  7. makedir >NIL: ENV:X11
  8. ENDIF
  9.  
  10. LAB start
  11. ;Audio Enabled or not?
  12. C:Requestchoice >env:Xoperat "Play With Audio or Not?""Choose A Method""audio""silent"
  13. ;Variables for Requestchoice
  14. IF $Xoperat eq "0"
  15. skip silent
  16. ENDIF
  17. IF $Xoperat eq "1"
  18. skip audio
  19. ENDIF
  20. IF $Xoperat eq "2"
  21. C:endcli
  22. ENDIF
  23.  
  24. ;Call the better vision player
  25. LAB silent
  26. ;Sets environment variables for X11
  27. setenv X11/askmode 1
  28. setenv X11/gfxcard 1
  29. ;Ask for a file name
  30. C:Requestfile >env:Xfilename TITLE "Which Vision File?"
  31. ;Set big enough stack for XANIM
  32. Stack 50000
  33. run Xamiga +f $Xfilename
  34. C:endcli
  35. skip start
  36.  
  37. ;Call the Audio version
  38. LAB audio
  39. ;Sets environment variables for X11
  40. setenv X11/askmode 1
  41. setenv X11/gfxcard 1
  42. ;Set big enough stack for XANIM
  43. Stack 50000
  44. ;Ask for a file name
  45. C:Requestfile >env:Xfilename TITLE "Which Vision File?"
  46. run C:Xanim +Ae +b +f $Xfilename
  47. C:endcli
  48. skip start
  49.  
  50. ;END